home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
music
/
cdplay.zip
/
CDABOUT.FRM
< prev
next >
Wrap
Text File
|
1994-03-24
|
6KB
|
178 lines
VERSION 2.00
Begin Form CDAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About"
ClientHeight = 5025
ClientLeft = 4140
ClientTop = 3030
ClientWidth = 6075
ControlBox = 0 'False
Height = 5430
KeyPreview = -1 'True
Left = 4080
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5025
ScaleWidth = 6075
Top = 2685
Width = 6195
Begin SSPanel Panel3D1
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BevelOuter = 1 'Inset
Font3D = 0 'None
Height = 4815
Left = 120
TabIndex = 6
Top = 120
Width = 5775
Begin PictureBox PicLogo
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 615
Left = 1560
ScaleHeight = 615
ScaleWidth = 2535
TabIndex = 9
Top = 120
Width = 2535
Begin Label lblLogo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CD Player"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00C00000&
Height = 525
Index = 0
Left = 0
TabIndex = 7
Top = 0
Width = 2415
End
Begin Label lblLogo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "CD Player"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 525
Index = 1
Left = 0
TabIndex = 8
Top = 30
Width = 2415
End
End
Begin CommandButton Command1
Caption = "&OK"
Height = 735
Left = 240
TabIndex = 4
Top = 3960
Width = 5295
End
Begin ListBox List1
Height = 1590
Left = 240
TabIndex = 5
Top = 2280
Width = 5295
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Index = 3
Left = 240
TabIndex = 0
Top = 1920
Width = 5295
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Index = 2
Left = 240
TabIndex = 1
Top = 1560
Width = 5295
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Index = 1
Left = 120
TabIndex = 2
Top = 1200
Width = 5475
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Index = 0
Left = 120
TabIndex = 3
Top = 840
Width = 5475
End
End
End
Option Explicit
Dim SelIndex As Integer
Dim Dirty As Integer
Sub Command1_Click ()
If SelIndex >= 0 And Dirty = True Then
CDForm.MMControl1.To = SelIndex + 1
CDForm.MMControl1.Command = "Seek"
CDForm.MMControl1.Track = SelIndex + 1
End If
Unload Me
End Sub
Sub Form_KeyUp (KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub
Sub Form_Load ()
CenterForm CDAbout, False
CenterLogo Me, Panel3D1
CDAbout.Caption = "About """ & CDInfo.CDTitle & """ By " & CDInfo.CDAuthor
Label2(0) = CDInfo.CDTitle
Label2(1) = "By " & CDInfo.CDAuthor
Label2(2) = "Total Tracks: " & NumOfTracks
Label2(3) = "Total Playing Time: " & CDInfo.CDTotalTime
LoadListBox List1
List1.Selected(CDForm.MMControl1.Track - 1) = True
If CDForm.mnuOptionsItem(2).Checked Then OnTop CDForm
Dirty = False
End Sub
Sub Form_Unload (Cancel As Integer)
If CDForm.mnuOptionsItem(2).Checked Then OnTop CDForm
End Sub
Sub List1_Click ()
Dirty = True
SelIndex = List1.ListIndex
End Sub